COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C***** MAIN PROG. -- IF RUNIT IS USED AS SEPARATE UNIT. ------
C00008 ENDMK
C⊗;
C***** MAIN PROG. -- IF RUNIT IS USED AS SEPARATE UNIT. ------
C11	DOUBLE PRECISION JBLA,ISCR,INST
	COMMON /PCIP/ PCH(27,33) /IPT/IPT(27,32)
C 2ND NUM IN IPT=NUMP+2. (NUMPY) 
	COMMON/P/P(30) /PL/PL(117) /NUMP/NUMP
	1 /COPY/COPY(30) /COPYL/COPYL(30)
CKL	COMMON/P/P(1) /PL/PL(1) /COPY/NUMP,COPY(1)/COPYL/COPYL(1)

	COMMON /Q/ BNW(200),NWZ /INS/INST(27),BG(60) /TYP/SOS,JOUT
	1 ,LN  /ROFF/ROFF(27),RDEV(27),P1(27)
	1 /VV/LIMIT,V(2000) /A/NP(27),XT(27),IFM(80),INVIS(27)
	COMMON J,L,CNT(27),BT,IREST,DF,DUR(27) 
	1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG
	1 ,VX(70),RAMP,K,KN,M,ML,CODE
	COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,
	1 Y,Z,ISLAC,MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,NL,RC,W,
	1 ZZ,CHN,YY 
	1 /D/TF,AMPFAC,OMIT,DURX,IXIN,IFLNM
	1 /C/T,NWZZ,IT3,T6,NW,TDUR,A,T2,T4,BY,
	1 KODE,NPAR,LP,TBG,AC,NPA,IBX,IDF,PM,NM,PAR,PX2,T1,RD,
	1 VIJ2
C  /C/=26
	DATA ISCR/'SCOR'/,JBLA/'   '/
	TYPE 117
	ACCEPT 116,AMPFAC,TF,OMIT,DURX
  	IF(TF.EQ.0)TF=1.
  	IF(AMPFAC.EQ.0)AMPFAC=1.
  	IF(DURX.EQ.0)DURX=19999.
752      FORMAT(1X15A5)
116	FORMAT(9F)
115	FORMAT(9I)
112	FORMAT(A4)
118	FORMAT(' TO DSK=1   TTY=2   BOTH=0   LPT=4  '$)
117	FORMAT(' TYPE AMPFAC, TEMPFAC, OMIT, DUR, OR <CR> '$)
113	FORMAT(' OUTPUT NAME? (<CR>="SCOR") '$)

	TYPE 118

	READ (1)IFLNM,I,NWZ,NINS,IDALL,BY,JPREC,KZY,LIMIT,NUMP 
	READ (1)(INST(K),K=1,NINS),(DUR(K),K=1,NINS),(NP(K),K=1,NINS),
	1(BG(K),K=1,NINS),(BNW(K),K=1,NWZ),(V(K),K=1,I),
	1(INVIS(K),K=1,NINS)

	ACCEPT 115,MX,K,L
C MX=WHERE OUTPUT, K=RANDOM NUM., L=INST NUM.
	ISLAC=ISCR
    	JOUT=5
C  5=OUTPUT TO TTY
	IF(MX.EQ.4)JOUT=3
C MX=4=DIRECT TO LPT 
	IF(JPREC.EQ.0)GO TO 9300
C NOW FOUND 'PRECEDE' MATERIAL TO TYPE OR WRITE ON DSK.
9302	READ(21,END=9300)K,(P(J),J=1,K)
	WRITE(JOUT,752)(P(J),J=1,K)
	GO TO 9302
C MX=10,11,ETC.,22,ETC. SUPPRESSES INPUT LISTING.
9300	IXIN=1
  	INONLY=-1
  	SOS=-1.
      	IF(L.NE.0)INONLY=L
  	IF(K.NE.0)IXIN=K
	MZ=0
  	GO TO(110,210,310,210,510,610)MX
C 0=DSK,TTY  1=DSK  2=TTY  3=0  4=LPT  5=TTY  6=TTY
310	MZ=-1
110	TYPE 113
	ACCEPT 112,ISLAC
	IF(ISLAC.EQ.JBLA)ISLAC=ISCR
	CALL OFILE(1,ISLAC)
   	MX=-1  
C11	CALL OPEN(1,'RUNIT',0,'NEW',,,'UNF')
C**** THIS WRITES A FILE NAMED 'RUNIT.DAT' ********
  	CALL RUNIT 
210	MZ=-1
510	CALL RUNIT 
610	MZ=-6
    	CALL RUNIT 
C1114	FORMAT('    FOR THE ABOVE YOU MAY TYPE UP TO 3 NUMBERS: N1 N2 N3'//
C	1' N1 = 1 WRITES DATA ON DSK,  =2 WRITES ONLY ON SCREEN,'/
C	1'    = 0 WRITES ON DSK AND SCREEN.'/
C	1'    = 11,22,33 ARE THE SAME AS 1,2,0 BUT INPUT LIST IS NOT
C	1 WRITTEN ON SCREEN.'/
C	1/' N2 = RAN NUM INITIALIZATION.       N3 = DO ONLY INST. #N'/
C	1/' ALSO FOR N1:  N1=5(OR 55)=DURS ONLY (FOR PROOFING)
C	1, =6(OR 66)=DEBUG V ARRAY'//
C	1 3X' UP TO 30 PARAMETERS AND 27 INSTRUMENTS ARE AVAILABLE'/)
	

	END